home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / onlineco / files / ImageMagick-6.0.1-Q16-windows-dll.exe / {app} / PerlMagick / demo / button.pl < prev    next >
Encoding:
Perl Script  |  2003-12-29  |  350 b   |  16 lines
  1. #!/usr/bin/perl
  2. #
  3. # Make simple beveled button.
  4. #
  5. use Image::Magick;
  6.  
  7. $q=Image::Magick->new;
  8. $q->Set(size=>'30x106');
  9. $q->Read('gradient:#00f685-#0083f8');
  10. $q->Rotate(-90);
  11. $q->Raise('6x6');
  12. $q->Annotate(text=>'Push Me',font=>'Generic.ttf',fill=>'black',
  13.   gravity=>'Center',pointsize=>18);
  14. $q->Write('button.gif');
  15. $q->Write('win:');
  16.